home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / wheels2.arc / SCREENS.TYP < prev    next >
Text File  |  1985-06-28  |  899b  |  22 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.
  4.  
  5.      A variable of type "SCREEN" is exactly the same "shape" as
  6.      the video screen memory when in text mode.  This type is
  7.      used in several programs, so it is stored separately and
  8.      called as needed, to avoid the problem of multiple declarations.
  9. }
  10. {@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  11. type
  12.   ScreenLoc  = record
  13.                  character : char;
  14.                  attribute : byte;
  15.                end;
  16.   ScreenLine = array[1..80] of ScreenLoc;
  17.       Screen = array[1..25] of ScreenLine;
  18.     LineType = string[80];
  19.   var
  20.     Mono    : Screen absolute $B000:$0000;
  21.     Colo    : Screen absolute $B800:$0000;
  22.